* Генерация теста на знание грамматики английского языка в виде страницы HTML * Программа КОНЦЕПТ, 26.01.2011, www.gendoc.ru присвоить ВЕРСИЯ_ШАБЛОНА 1.0 присвоить КВ_ОТКР '[' КВ_ЗАКР ']' присвоить ТЕСТЫ "[$ТекущийКаталог]Tests-db.txt" если (файл существует $результат [ТЕСТЫ] ) данные загрузить [ТЕСТЫ] иначе показать сообщение "Не найден файл с тестами [ТЕСТЫ]." стоп конец присвоить НОМЕР_ТЕСТА 1 факт сопоставитьСПервым ок "r;t;[НОМЕР_ТЕСТА];[?КОЛИЧЕСТВО_ВОПРОСОВ];[?ОПИСАНИЕ_ТЕСТА]" присвоить ФАЙЛ_РЕЗУЛЬТАТ "[$ТекущийКаталог]_Test_[НОМЕР_ТЕСТА]_.htm" файл писать [ФАЙЛ_РЕЗУЛЬТАТ] ****** Заголовок страницы HTML ****** > > > > >Тест > > >

Тест N [НОМЕР_ТЕСТА]. [ОПИСАНИЕ_ТЕСТА] [КОЛИЧЕСТВО_ВОПРОСОВ] вопросов.

>
для (список сгенерить $результат 1 [КОЛИЧЕСТВО_ВОПРОСОВ] ) Вопрос_теста [$ОбъектЦикла] следующий функция Вопрос_теста текущий_номер_вопроса память локальный вопрос варианты_ответов факт сопоставитьМножество вопрос "r;q;[НОМЕР_ТЕСТА];[текущий_номер_вопроса];[?X]" если [вопрос] >

[текущий_номер_вопроса]/[КОЛИЧЕСТВО_ВОПРОСОВ]) [вопрос] факт сопоставитьМножество варианты_ответов "r;v;[НОМЕР_ТЕСТА];[текущий_номер_вопроса];[?X];[?]" для [варианты_ответов] >
[$ОбъектЦикла] следующий >

иначе >

ОШИБКА: Вопрос N [текущий_номер_вопроса] не найден.

конец возврат ****** Конец формы и HTML страницы ****** >

> > >

>

Дата генерации: [$Сегодня] Версия шаблона: [ВЕРСИЯ_ШАБЛОНА]

> файл конецЗаписи показать html [ФАЙЛ_РЕЗУЛЬТАТ]